home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 May
/
EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso
/
earcd
/
util
/
dir
/
managers.lha
/
Managers
/
Cli_Master
/
comment.g
< prev
next >
Wrap
Text File
|
1997-01-14
|
997b
|
53 lines
G4C
winbig -1 -1 320 51 "CLI-Master"
wintype 11010000
winout nil:
xonopen
lvmulti climaster $cmst_srce first
setgad comment.g 1 on
failat 5
xonclose
lvdir climaster $cmst_srce none
xonfail
ezreq "Error During Processing." Okay ""
lvdir climaster $cmst_srce none
guiclose comment.g
box 0 0 0 0 in icondrop
text 100 4 280 12 "Add Filenote(s)" 15 nobox
xtextin 20 16 280 13 "" cmst_nwname "" 30
gadid 1
xbutton 20 32 80 12 "Okay"
cli 'filenote $cmst_select "$cmst_nwname"'
lvmulti climaster $cmst_srce off
lvmulti climaster $cmst_srce next
if $cmst_select = ""
setvar cmst_nwname ""
update comment.g 1 $cmst_nwname
guiclose comment.g
endif
setvar cmst_nwname ""
update comment.g 1 $cmst_nwname
setgad comment.g 1 on
xbutton 220 32 80 12 "Do All"
while $cmst_select != ""
cli 'filenote $cmst_select "$cmst_nwname"'
lvmulti climaster $cmst_srce off
lvmulti climaster $cmst_srce next
endwhile
setvar cmst_nwname ""
update comment.g 1 $cmst_nwname
guiclose comment.g